The code that uses plotly:

library(plotly)

now_ct <- as.POSIXct(Sys.time())
tm <- seq(0, 500, by = 10)
x <- now_ct - tm
y <- rnorm(length(x))
plot_ly(x = ~x, y = ~y, mode = 'lines')